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® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH OTHE TERMS OF SUCH LICENSE AND WITH THE 
SION OF THE ABOVE COPYRIGHT NOTICE, THIS ARE OR ANY OTHER ® 
§ BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. . 
® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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SUBROUTINE HEADER (LUN) 


AUTHOR BRIAN PORTER CREATION DATE 3-MAR-1979 
Functional description: 
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This module displays the herald for individual entries. 
Modified by: 


v03-003 SARO187 Sharon A. Reynolds, 11-Feb-1984 
Modified the format statements for ERF output files. 


v03-002 a pe Sharon A. Reynolds, 5-0ct-1983 
Applied an SYE update that adds the HEADERS routine. 


v03-001 BP0003 Brian Porter, 05-MAR-1982 
Added mscp support. 


SS8ss 
POOOOOOOIOAAIOOGOOOOOOO 


INCLUDE *SRC$:MSGHDR.FOR /NOLIST‘ 
INCLUDE *SRC$:SYECOM.FOR/NOLIST' 


BYTE LUN 
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‘? integers4 record_number : 
45 CHARACTER*24 TIME ; 
rh LOGICAL ®4 SYSSASCTIM : 
‘3 EXTERNAL SYSSASCTIM ; 
INTEGER®4 FIELD ; 
; INTEGER®4 COMPRESS4 ; 
4 CALL LINCHK(LUN, 2) ; 
WRITECLUN,5) (*®*,1=1,28) RECCNT,('#" 121,28) ; 
3} FORMAT(' 28a," ENTRY '217,". ",28af) : 
33 ? FIELD = LIBSEXTZ2V(0,16,EMB$W_HD_ERRSEQ) 3 
61 WRITE(LUN,10) FIELD, EMBSL_HD_SID ; 
0 6¢ 10 FORMAT(’ §, "ERROR SEQUENCE ‘TI<COMPRESS4 (FIELD)>,'.",152, : 
p 63 1 "LOGGED ON SID*,166,28.8) ; 
65 RETURN : 
O56? 
0268 F 
0 +4 Entry HEADER2 (Lun,record_number) . 
sr : 
0 2 : 
0 i, call Linchk(lun,2) : 
0 76 write(lun,5) ('#',i=1,28),record_number,('*',i=1,28) : 
7 oto 7 F 
0278 ° : 
79 F 
80 3 
3 Entry HEADERS (lun,record_number) : 
68 call Linchk(lun,2) ; 
85 yritesiun.t5) record_number, LibSextzv(0,16,emb$w_hd_errseq), ; 
em Py 
0 ey 15 Format(* of teens ENTRY ‘,i<compress4 (record_number)>, : 
1 '., ERROR SEQUENCE ' i<compress4 (Lib$Sextzv(0,16,emb$w_hd_errseq))>, : 
0289 1 '. "LOGGED ON SID ',26.8) ; 
o 91 return : 
% : 
029 end : 
| : 
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PROGRAM SECTIONS 


DISKSVMSMASTER: 


Name Bytes Attributes 
0 SCODE 422 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA igt PIC CON REL LCL SHR XE RD NOWRT LONG 
¢ SLOCAL $ PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
—MB 51 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 SYECOM 44 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1238 


ENTRY POINTS 


Address Type Name Address Type Name Address Type Name 


0-00000000 HEADER 0-00000098 HEADER2 0-00000101 HEADERS 
VARIABLES 
Address Type Name Address Type Name 
CP_11750 4-00000011 L*1 117 
CP_11722 $-3088 014 L*4 CRYPTK_FLAG 
DEV_CHAR :- 0000000 I*4 EMBSL_AD_SID 
EMBSW_HD_ENTRY -QO00000E I*2 EMBSW HD-ERRSEQ 
reco S-Hnogeea ESL Fokae*® 
I 4- 000 C L*l LINES 
LSTLUN AP-00 48 L*1 LUN 
ah al i-$5s00ase fut Sree 
RECORD_NUMBER 4-00 009 I*4 RECORD SIZE 
TIME 4-00000019 L*1 VALID_CLASS 
VALID_CPU 4-00 ett L*1 VALID_ENTRY 
VALID-TYPE 4-00000018 L*1 VOLUME_OUTPUT 
ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 L*1 EMB ate sl 
-00000006 I*4 EMBSO_HD_TIME (2) 


LABELS 
Address Label 
1-0000000D 5° 


Address’ Label 
1-0000005C 15° 


Address’ Label 
1-00000028 10° 


Address Label 
0-00000061 7 
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FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESS4 


Type Name 
I*4 LIBSEXTZV 


Type Name 
LINCHK 
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PROGRAM SECTIONS 


Name Bytes 
0 SCODE 6 
Total Space Allocated 6 


ENTRY POINTS 
Address Type Name 
0-00000000 HEADERSMAIN 


COMMAND QUALIFIERS 


Attributes 
PIC CON REL LCL 


FORTRAN /LIS=LISS$:HEAVER/OBJ=0BJ$:HEADER MSRC$:HEADER 


/ CHE CK= (NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUG=(NOSYMBOL§, T 

/STANDARD= (NOSYNTAX NO NOSOURC E FORM) 
/$HQU= (NOPREP ROC NTAE Ne NOINCLODE, 


/NOG_FLOATING 714 WOPTIAIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE 


COMPILATION STATISTICS 
Run Time: 


2.21 seconds 
Elapsed Time: 6.81 seconds 
Page Faults: 11 
Dynamic Memory: 171 pages 
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VAX=11 FORTRAN 
DISKSVMSMASTER: 


3.4-5 
ERF. SRCIMEADER. FOR; 1 


SEE 
Page 5 


/NOMACHINE_CODE /CONTINUATIONS=19 
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